home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / line / Arrows3.rx < prev    next >
Encoding:
Text File  |  2001-08-16  |  477 b   |  33 lines
  1. /* Arrow */
  2.  
  3.     call addlib("rexxmathlib.library", 5, -30, 0)
  4.  
  5.     options results
  6.   parse ARG Port x y x2 y2 b 
  7.     ADDRESS value Port
  8.     pp_UpdateUndo
  9.  
  10.     Pi=3.1415926
  11.  
  12.  if x>x2 then DO;tx=x;x=x2;x2=tx;ty=y;y=y2;y2=ty;END
  13.  
  14.  
  15.     angle=Atan((y-y2)/(x-x2))
  16.     delta=10
  17.     length=20
  18.  
  19.     pp_Line x y x2 y2
  20.  
  21.       Cx = x2+length*cos(angle+delta)
  22.       Cy = y2+length*sin(angle+delta)
  23.  
  24.     pp_Line x2 y2 Cx Cy
  25.  
  26.       Cx = x2+length*cos(angle-delta)
  27.       Cy = y2+length*sin(angle-delta)
  28.  
  29.         pp_Line x2 y2 Cx Cy
  30.  
  31.  
  32.     EXIT
  33.